object PictureForm: TPictureForm
  Left = -2
  Top = 603
  Width = 252
  Height = 132
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Picture window'
  Color = clBlack
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  PopupMenu = PopupMenu1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 125
  TextHeight = 16
  object Image1: TJPEGImage
    Left = 0
    Top = 0
    Width = 244
    Height = 100
    Align = alClient
    AutoSize = True
    PopupMenu = PopupMenu1
    NumOfColors = _256
    DCTMethod = Integ
    Dither = FS
    FastProcessing = False
    GrayScale = False
    NoSmooth = False
    OnePass = False
    ProgressStep = 10
  end
  object AbsentFilePanel: TPanel
    Left = 6
    Top = 31
    Width = 233
    Height = 33
    Caption = 'No image available'
    Font.Color = clRed
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Visible = False
  end
  object PopupMenu1: TPopupMenu
    Left = 4
    Top = 5
    object LoadImage1: TMenuItem
      Caption = 'Load Image'
      ShortCut = 0
      OnClick = LoadImage1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Border1: TMenuItem
      Caption = 'Window border'
      Checked = True
      ShortCut = 0
      OnClick = Border1Click
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    FileName = 'Earth.jpg'
    Filter = 'JPEG Images|*.jpg'
    Options = [ofHideReadOnly]
    Title = 'Load a JPEG Image'
    Left = 34
    Top = 5
  end
end